home *** CD-ROM | disk | FTP | other *** search
/ Disney Interactive Software Sampler 1998 to 1999 / DISNEY99.ISO / Media / No06.dxr / 00001_Movie Script.ls next >
Encoding:
Text File  |  1998-11-18  |  864 b   |  42 lines
  1. global gLastVisFrame, gLastVisMovie, myCD
  2.  
  3. on startMovie
  4.   set myCD to cHECKdRIVE("E1.txt")
  5. end
  6.  
  7. on stopMovie
  8.   set the keyDownScript to EMPTY
  9. end
  10.  
  11. on putFrameMovie
  12.   set gLastVisFrame to the frame
  13.   set gLastVisMovie to the movie
  14. end
  15.  
  16. on FForward
  17.   if the key = " " then
  18.     go(marker(1))
  19.     set the keyDownScript to EMPTY
  20.   end if
  21. end
  22.  
  23. on LaunchDemo
  24.   set ParameterList to "Ariel_Dm data\boot.stm,MenuBack," & myCD & "\LMSS," & myCD & "\MEDIA,27000,20000"
  25.   open(ParameterList, myCD & "\MEDIA\ZLNCH32.EXE")
  26. end
  27.  
  28. on cHECKdRIVE weirdfile
  29.   repeat with i = 66 to 90
  30.     set drive to numToChar(i)
  31.     set thisPath to string(drive & ":\licence\" & weirdfile)
  32.     set myFile to new(xtra("fileIO"))
  33.     openFile(myFile, thisPath, 1)
  34.     if status(myFile) = 0 then
  35.       set myFile to 0
  36.       return drive & ":"
  37.       exit
  38.     end if
  39.   end repeat
  40.   set myFile to 0
  41. end
  42.